﻿Public Class IDCollection
    Inherits CollectionBase

    Public Sub Add(ByVal _id As Integer)
        If List.Contains(_id) = False Then
            List.Add(_id)
        End If
    End Sub

    Public Sub Remove(ByVal _id As Integer)
        If List.Contains(_id) = True Then
            List.Remove(_id)
        End If
    End Sub

    Default Public Overridable ReadOnly Property Item(ByVal index As Integer) As Integer
        Get
            Return CType(Me.List(index), Integer)
        End Get
    End Property
End Class